! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Fri Dec 20 17:53:40 2019
! Working directory    : /n/home08/kbates/Aromatics/GC_Porter
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(29) = (1.8E-6)*CFACTOR
  VAR(35) = (0.5E-4)*(0.0E-9)*CFACTOR
  VAR(36) = (0.7E-5)*(5.0E-4)*CFACTOR
  VAR(37) = (1.5E-4)*(0.0E-9)*CFACTOR
  VAR(48) = (2.0E-7)*CFACTOR
  VAR(122) = (3.0E-9)*CFACTOR
  VAR(152) = (7.5E-8)*CFACTOR
  VAR(156) = (5.0E-3)*(5.0E-4)*CFACTOR
  FIX(1) = (1.0E-2)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(409) = 2.31e-11
  RCONST(420) = 1.2e-12
  RCONST(426) = 4e-12
  RCONST(427) = 2.2e-11
  RCONST(429) = 3.78e-12
  RCONST(447) = 2.8e-11
  RCONST(450) = 9.9206e-11
  RCONST(451) = 1.1574e-11
  RCONST(452) = 3.9684e-12
  RCONST(453) = 3.3068e-13
  RCONST(458) = 1.1574e-05
  RCONST(459) = 1.1574e-05
  RCONST(460) = 1.1574e-05
  RCONST(461) = 1.1574e-05
  RCONST(462) = 1.1574e-05
  RCONST(463) = 1.1574e-05
  RCONST(464) = 1.1574e-05
  RCONST(465) = 1.1574e-05
  RCONST(466) = 1.1574e-05
  RCONST(467) = 1.1574e-05
  RCONST(468) = 1.1574e-05
  RCONST(469) = 1.1574e-05
  RCONST(470) = 1.1574e-05
  RCONST(471) = 1.1574e-05
  RCONST(472) = 1.1574e-05
  RCONST(473) = 1.1574e-05
  RCONST(474) = 1.1574e-05
  RCONST(475) = 1.1574e-05
  RCONST(476) = 1.1574e-05
  RCONST(477) = 1.1574e-05
  RCONST(478) = 1.1574e-05
  RCONST(479) = 1.1574e-05
  RCONST(480) = 1.1574e-05
  RCONST(481) = 1.1574e-05
  RCONST(482) = 1.1574e-05
  RCONST(483) = 1.1574e-05
  RCONST(484) = 1.1574e-05
  RCONST(485) = 1.1574e-05
  RCONST(486) = 1.1574e-05
  RCONST(487) = 1.1574e-05
  RCONST(488) = 1.1574e-05
  RCONST(489) = 1.1574e-05
  RCONST(490) = 1.1574e-05
  RCONST(491) = 1.1574e-05
  RCONST(492) = 1.1574e-05
  RCONST(493) = 1.1574e-05
  RCONST(494) = 1.1574e-05
  RCONST(495) = 1.1574e-05
  RCONST(496) = 1.1574e-05
  RCONST(497) = 1.1574e-05
  RCONST(498) = 1.1574e-05
  RCONST(499) = 1.1574e-05
  RCONST(500) = 1.1574e-05
  RCONST(501) = 1.1574e-05
  RCONST(502) = 1.1574e-05
  RCONST(503) = 1.1574e-05
  RCONST(504) = 1.1574e-05
  RCONST(505) = 1.1574e-05
  RCONST(506) = 1.1574e-05
  RCONST(507) = 1.1574e-05
  RCONST(508) = 1.1574e-05
  RCONST(509) = 1.1574e-05
  RCONST(510) = 1.1574e-05
  RCONST(511) = 1.1574e-05
  RCONST(512) = 1.1574e-05
  RCONST(513) = 1.1574e-05
  RCONST(514) = 1.1574e-05
  RCONST(515) = 1.1574e-05
  RCONST(516) = 1.1574e-05
  RCONST(517) = 1.1574e-05
  RCONST(518) = 1.1574e-05
  RCONST(519) = 1.1574e-05
  RCONST(520) = 1.1574e-05
  RCONST(521) = 1.1574e-05
  RCONST(522) = 1.1574e-05
  RCONST(523) = 1.1574e-05
  RCONST(524) = 1.1574e-05
  RCONST(525) = 1.1574e-05
  RCONST(526) = 1.1574e-05
  RCONST(527) = 1.1574e-05
  RCONST(528) = 1.1574e-05
  RCONST(529) = 1.1574e-05
  RCONST(530) = 1.1574e-05
  RCONST(531) = 1.1574e-05
  RCONST(532) = 1.1574e-05
  RCONST(533) = 1.1574e-05
  RCONST(534) = 1.1574e-05
  RCONST(535) = 1.1574e-05
  RCONST(536) = 1.1574e-05
  RCONST(537) = 1.1574e-05
  RCONST(538) = 1.1574e-05
  RCONST(539) = 1.1574e-05
  RCONST(540) = 1.1574e-05
  RCONST(541) = 1.1574e-05
  RCONST(542) = 1.1574e-05
  RCONST(543) = 1.1574e-05
  RCONST(544) = 1.1574e-05
  RCONST(545) = 1.1574e-05
  RCONST(546) = 1.1574e-05
  RCONST(547) = 1.1574e-05
  RCONST(548) = 1.1574e-05
  RCONST(549) = 1.1574e-05
  RCONST(550) = 1.1574e-05
  RCONST(551) = 1.1574e-05
  RCONST(552) = 1.1574e-05
  RCONST(553) = 1.1574e-05
  RCONST(554) = 1.1574e-05
  RCONST(555) = 1.1574e-05
  RCONST(556) = 1.1574e-05
  RCONST(557) = 1.1574e-05
  RCONST(558) = 1.1574e-05
  RCONST(559) = 1.1574e-05
  RCONST(560) = 1.1574e-05
  RCONST(561) = 1.1574e-05
  RCONST(562) = 1.1574e-05
  RCONST(563) = 1.1574e-05
  RCONST(564) = 1.1574e-05
  RCONST(565) = 1.1574e-05
  RCONST(566) = 1.1574e-05
  RCONST(567) = 1.1574e-05
  RCONST(568) = 1.1574e-05
  RCONST(569) = 1.1574e-05
  RCONST(570) = 1.1574e-05
  RCONST(571) = 1.1574e-05
  RCONST(572) = 1.1574e-05
  RCONST(573) = 1.1574e-05
  RCONST(574) = 1.1574e-05
  RCONST(575) = 1.1574e-05
  RCONST(576) = 1.1574e-05
  RCONST(577) = 1.1574e-05
  RCONST(578) = 1.1574e-05
  RCONST(579) = 1.1574e-05
  RCONST(580) = 1.1574e-05
  RCONST(581) = 1.1574e-05
  RCONST(582) = 1.1574e-05
  RCONST(583) = 1.1574e-05
  RCONST(584) = 1.1574e-05
  RCONST(585) = 1.1574e-05
  RCONST(586) = 1.1574e-05
  RCONST(587) = 1.1574e-05
  RCONST(588) = 1.1574e-05
  RCONST(589) = 1.1574e-05
  RCONST(590) = 1.1574e-05
  RCONST(591) = 1.1574e-05
  RCONST(592) = 1.1574e-05
  RCONST(593) = 1.1574e-05
  RCONST(594) = 1.1574e-05
  RCONST(595) = 1.1574e-05
  RCONST(596) = 1.1574e-05
  RCONST(597) = 1.1574e-05
  RCONST(598) = 1.1574e-05
  RCONST(599) = 1.1574e-05
  RCONST(600) = 1.1574e-05
  RCONST(601) = 1.1574e-05
  RCONST(602) = 1.1574e-05
  RCONST(603) = 1.1574e-05
  RCONST(604) = 1.1574e-05
  RCONST(605) = 1.1574e-05
  RCONST(606) = 1.1574e-05
  RCONST(607) = 1.1574e-05
  RCONST(608) = 1.1574e-05
  RCONST(609) = 1.1574e-05
  RCONST(610) = 1.1574e-05
  RCONST(611) = 1.1574e-05
  RCONST(612) = 1.1574e-05
  RCONST(613) = 1.1574e-05
  RCONST(614) = 1.1574e-05
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 707400
        DT = 60.0
        TEMP = 298

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

